﻿Public Class rp_TC_Nganhang_Chi
    'Dim sochungtu As String
    'Dim vtongtien As Double
    'Public Sub New(ByVal sochungtu As String)
    '    InitializeComponent()
    '    Me.sochungtu = sochungtu
    'End Sub
    'Public Sub setTongtien(ByVal s As Double)
    '    Me.vtongtien = s
    'End Sub

    'Private Sub rp_BH_BanHangNuocNgoai_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Me.BeforePrint

    '    Me.BHBanHangChiTietTableAdapter.Fill(Me.PcV_FISHDataSet1.BHBanHangChiTiet)
    '    Dim position As Integer = Me.BHBanHangBindingSource.Find("sochungtu", sochungtu)
    '    Me.BHBanHangBindingSource.Position = position
    '    Me.Ten.Value = "Công ty CP Giải Pháp ERP Phong Cách Việt "
    '    Me.DiaChi.Value = "123 Lâm Văn Bền Phường Tân Khiểng  Quận 7 TP.HCM "
    '    Me.doc_chu.Value = Editor.NumToText(vtongtien) & " " & "đồng"

    'End Sub

End Class